﻿Imports System.Configuration.ConfigurationManager

Public Class TheSettings

    Public Shared ReadOnly Property Environment() As String
        Get
            'Default to Production environment:
            Dim s As String = AppSettings("Environment")
            If s = "" Then
                Return "Production"
            Else
                Return s
            End If
        End Get
    End Property

    Public Shared ReadOnly Property SQLConnectionString() As String
        Get
            Return AppSettings("SQLConnectionString" & "." & Environment())
        End Get
    End Property

End Class
